/* pjdw.t - SUB-PROJECT FILE WRITE TRIGGER                                */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                    */
/* All rights reserved worldwide.  This is an unpublished work.           */
/*V8:ConvertMode=NoConvert*/
/**************************************************************************/
/*  Program :pjdw.t                                                       */
/*  Author  :Luke Pokic                                                   */
/*  Date    :12/01/99                                                     */
/*  Description: pjd_det WRITE trigger program                            */
/*          This WRITE trigger records the last user to create or modify  */
/*          the subproject along with the date of modification.           */
/**************************************************************************/
/*                             MODIFY LOG                                 */
/**************************************************************************/
/* REVISION: 9.1      CREATED: 12/01/99  BY: *N006*  Luke Pokic           */
/* REVISION: 9.1     MODIFIED: 08/13/00  BY: *N0KQ* myb                   */

         TRIGGER PROCEDURE FOR WRITE OF PJD_DET OLD BUFFER OLD_PJD_DET.
         {mfdeclre.i}

         assign
            pjd_det.pjd_mod_userid = global_userid
            pjd_det.pjd_mod_date   = today.
